home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
476-500
/
disk_499
/
diglib
/
diglib.lzh
/
source
/
PLTBOX.for
< prev
next >
Wrap
Text File
|
1991-04-13
|
267b
|
10 lines
SUBROUTINE PLTBOX(XLEFT,XRIGHT,YBOT,YTOP)
IMPLICIT NONE
REAL*4 XLEFT,XRIGHT,YBOT,YTOP,CSIZE,GOODCS
C
C
CSIZE = GOODCS(AMIN1(YTOP-YBOT,XRIGHT-XLEFT)/80.0)
CALL MAPPRM(XLEFT,XRIGHT,YBOT,YTOP,CSIZE,0.9*CSIZE,.FALSE.)
RETURN
END